home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 March / Ahoy_Magazine_88-03_1988_Double_L.d64 / Four Weights (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  526b  |  19 lines
  1. 0 print"[147]"tab(14)"four weights"
  2. 1 rem ==================================
  3. 2 rem    commodares problem #47-1 :
  4. 3 rem      four weights
  5. 4 rem    solution by
  6. 5 rem      justin smalley
  7. 6 rem ==================================
  8. 10 mx=40:ba=3
  9. 15 nw=int(log(mx)/log(ba)+.1)+1
  10. 20 fori=1tonw:w(i)=int(ba^(i-1)+.1):s(i)=s(i-1)+w(i):next:dimn(mx,nw):k=1
  11. 25 rem
  12. 30 forw=1tomx
  13. 35 d=w-w(k):ifw>s(k)thenk=k+1:goto35
  14. 40 n(w,1)=w(k):s=sgn(d):d=abs(d)
  15. 45 fori=2tonw:n(w,i)=s*n(d,i-1):nexti,w
  16. 50 rem
  17. 55 forw=1tomx:tt=20:ifint(w/2)*2<>wthentt=0:print
  18. 60 printtab(tt)w"=";:forj=1tonw:printn(w,j);:nextj,w:end
  19.